home *** CD-ROM | disk | FTP | other *** search
/ FishMarket 1.0 / FishMarket v1.0.iso / fishies / 476-500 / disk_499 / diglib / diglib.lzh / source / GRAFIN.for < prev    next >
Text File  |  1991-04-13  |  592b  |  23 lines
  1.         SUBROUTINE GRAFIN(X,Y,LFLAG)
  2.         IMPLICIT NONE
  3.         LOGICAL *2 LFLAG
  4.         REAL*4 X,Y
  5.         INTEGER IERR
  6. C
  7. C       DISPLAY AND READ THE GRAPHICS CURSOR AND RETURN ITS POSITION
  8. C       IN WORLD COORDINATES.
  9. C
  10.         INCLUDE DIGLIB$KOM:PLTCOM.PRM
  11.         INCLUDE DIGLIB$KOM:PLTSIZ.PRM
  12. C
  13. C       GET CURSOR POSITION IN VIRTUAL COORDINATES.
  14. C
  15.         CALL GSCRSR(X,Y,LFLAG,IERR)
  16.         IF (IERR .NE. 0) RETURN
  17.         X = (X-XVSTRT)*UDX/XVLEN + UX0
  18.         IF (LOGX) X = 10.0**X
  19.         Y = (Y-YVSTRT)*UDY/YVLEN + UY0
  20.         IF (LOGY) Y = 10.0**Y
  21.         RETURN
  22.         END
  23.